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LINE JUSTIFIER 

Last month we s*ld that we'd have a line Justification Program ready for 
this month'* issue. The listing is included below. 

We were writin9 the RAINBOW last month with a simPle word Processor that 
us enter a whole line and make corrections before it was committed to the 
on a Printer. That was an improvement over the Pro9ram that the 
mainly because it allowed us to backsPace for corrections. In the 
RAINBOW, where we want to have lines which are ri9ht-Justif led, 
only to a de9ree — mainly because we had to tyPe the line and 
and add spaces to make the lines come out even on the ri9ht-hand 
the was easier than typin9 the RAINBOW on a typewriter < which 



print buffer 
manua I had , 
case of the 
that work ed 
then 9o back 
side. While 



woul d have req uired two tyPin9s>it was still a hassle. Thus was born the (ffflni^ 

word Processor, below. s 



What happens here is that, usin9 the INSTR Command/ we search for sPaces 
in a line and then "peel off" spaces from the end of each line and add them 
to the sPaces which are already between the words. Each line is entered as fi* 
and then Pulled aPart. Spaces are inserted, and then the line is Put back 
together. There are two variations, one for a full-len9th line and the other 
for a half-len9th one. 

The Program requires the typist to space to a certain sPot on the line, in 

effect, to fill up the line with spaces <a Printer might call these space 

bands). Those sPaces are then repositioned in the line to make it come out 
evenly. 

The screen display is set uP so that there Is a little black block for the 
tyPist to "aim" at. Once the typist 9ets close to the block, he or she Just 
spaces in blanks until the cursor covers the black block. Then, the line is 
entered into the print buffer and Printed on the line Printer. 



fls an added aid, the last line typed is shown on the bottom of the screen. 
One of the reasons for this is because we felt it would be easier for the 
tyPist to begin the next line knowin9 what was on the previous line — without 
the need of havin9 to look at the Printer. 

For short lines, Just hit ENTER when the line ends. However, a bu9 may — 
but will not always — appear if you type a VERY short line. What can haPPen 
is that the one or two words in the line will repeat themselves. If that 
does occur, Just sPace down and retyPe the same line. It will go away. 



The remAi-nder of the Pro9r*m is devoted to the disPlay and the 9ra.phic 
ti9n«ture for the Pro9ram *nd the *oftw*r*. 



THE LISTING 



10 CLS 

20 CLERR1000 

30 GOSUB410 

40 GOSUB380 ■ GOSUB390 ' GOSUB400 i PRINTSTRING* 32, 43 ) 

30 PRINT 'PR I NT "SELECT MODE'" 

60 PRINT" <1) ONE-COLUMN FORMAT" 'PRINT" <2> TUO-COLUMN FORMAT" 'PRINT ■ I 

MPUT" ENTER NUMBER" jZZ 

63 ON ZZ GOTO 100, 240 

70 PRINT' INPUT "ENTER ONLY 1 OR 2 PLEASE" ;ZZ 

50 ON ZZ GOTO 100, 240 

90 IF ZZOl OR ZZ<>2 THEN 70 

100 CLS 

110 N*-" "'L=4 

120 GOSUB380'GOSUB390'GOSUB400.PRINT" ONE-COLUMN FORMAT" 

130 PRINT(S160,STRINGf<:32,43)j 'PRINTG271,CHR*< 128); "< — SPACE TO HERE" 'PRINTi2238,S 

TRING*<32,43>; ' PRINTG322, ". ..LAST LINE. .." 'PRINTA* 'PRINTC192, ""; 'LINE INPUT A* 

140 IF RIGHT*<R*,1)«»" " THEN R*"RIGHT*< Ht, 1 >' A*-LEFT*< A*, 79) 'GOTO 170 

130 PRINT#-2,A* 

160 GOTO100 

170 B«INSTR<L,A*,N$) 

130 C*=LEFT*<A*,B) 

190 Ef«RIGHT*<A*,79-B> 

200 D*"C*+N* 

210 A*«D*+E* 

220 L=LEN<D*>+4 

230 GOTO 140 

240 CLS 

230 N*«" "'L«4 

260 G0SUB330 ' GOSUB390 ' GOSUB480 ' PRINT" TWO-COLUMN FORMAT" 

270 PR I NTS 1 60 , STR I NG*< 32 , 43 > ; ' PR I NTI2230 , CHR*< 1 23 > ; " < —SPACE TO HERE " ■ PR I NTIB25S , £ 

TRING*<32,43); 'PRINTIS320, " ...LAST LINE. .." 'PRINTA* 'PRINTIB192, ""; 'LINE INPUT F 

* 

280 IF RIGHT*<A*,1 )«" " THEN R$*RIGHT*< A*/ 1 >' A**LEFT*< A*, 37)' GOTO310 

290 PRINTtt-2,A* 

300 GOTO240 

310 B=»INSTR<L,A*,Nf) 

320 C*=>LEFT*<R*,B) 

330 E*=R I GHT*< fl* , 37-B > 

340 D*-C*+N* 

350 A*=D*+E* 

360 L=LEN<D*>+3 

370 G0T0230 

330 F1*=CHR*< 129)+CHR*< 131 >+CHR*< 133 > 'P2*=CHR*< 132)+CHR*< 141 >'F3*=CHR*< 133>'F4T- 

CHR*< 128+1 3 ) ' RETURN 

390 CLS ■ PRINTC34, Fl* ' PRINTG66, F2* ' PRINTG93 , F3* ' RETURN 

400 PRINTe99,"ALS0FT MINI-WORD PROCESSOR" 'RETURN 

410 PRINTei93,"<C) FALSOFT, 1931" ' FORX=1TO200' NEXT 

420 GOSUB380 

430 F0RX=376T034STEP-32 ' GOSUB460 ■ NEXTX 

448 FOR X»31TO34STEP-1'GOSUB460" NEXTX 

430 RETURN 

468 Y-X+32'Z-Y+32'Q-Z+32 

470 PR I NTGX , F 1 * • PR I NT8Y , F2* • PR I NTCZ , F3* > PR I NTGQ , F4* ' RETURN 
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MOM I TOR 



CBUG, Available on »ither tape or 
an EPROM from THE MICROWORKS, is a 
full-scale monitor Pro9ram which also 
allows you. to use sour Color ComPuter 
as a terminal. 

For instance, sou can use it to; 
hook up with CompuServe — and aou can 
do it for the same Price as the VIDEO- 
TEX Pro9ram Put out by Radio Shack. 
Since you also get a very Powerful i 
monitor as well < in fact; you will be j 
much more interested in the monitor, 
than i n the term i na I caP ab i I i t i es > , 
CBUG is a real bargain at *29.93 on 
taPe or *39.93 on the EPROM. 

All in all/ there are 19 commands 
in CBUG. By far the most important 
one is the "M" command, which stands 
for memory examine and chan9e. With 
it you just type in "M" and a hexidec- 
imal address, and the disPlay shows 
you a full eight bytes of memory at 
the location you specify. The line 
numbers are shown, and, if the loca- 
tion is within eight bytes of the line 
the cusor Positions itself right in 
front of the byte you sPeclf ied. find, 
to change that byte, all you have to 
do is tyPe in the new hex i decimal 
number. No deleting or anything like 
that. CBUG then positions the cursor 
In front of the next byte, and you can 
change that, too. 

By simPly moving the UP, down, left 
and right arrows, you can examine the 
memory contents above and below the 
one you originally specified. It is a 
real nice way to manipulate memory. 

CBUG also makes it easy to examine 
the contents of the CPU, or to go back 
and forth between BASIC and itself. 
Find, you don't have to worry about 
those hex i decimals, either, because 
there are simple commands that allow 
you to convert hex to decimal and dec- 
imal to hex. In fact, its a pretty 
easy way to get used to hex notation. 

Of course, you can also run your 
Programs and you can save theoi to taPe 
as well. CBUG also has commands to 
transfer memory blocks, load hexes in 
a quick fashion and change the cpu 
registers. 

You can also move a disPlay Pa.9e, 
UPload eir download *'M an aufcn mnrie 



computer as an intelligent terminal 
to a host system. 

CBUG is a fine program. It is easy 
to use and gives a 9ood look into the 
inner workings of the Color computer. 
There are a number of helPful hints in 
the documentation and its easy to Set 
CBUG up and goin9 Quickly. On the 
other hand, it is a Powerful tool that 
will continue to Prove very useful no 
matter how sophisticated you may be. 

Although I have the taPe version, 
the directions supplied by THE MICRO- 
WORKS are very clear in getting the 
EPROM version installed — either in 
the Extended Color Basic socket inside 
the case or in a ROM Pack. Usin9 the 
EPROM means, or course, that you don't 
give up any RAM for CBUG. 



CBUG is available by mail from THE 
MICROWORKS, P.O. Box 1110, Del Mar, CA 
92014 in either taPe or EPROM version. 



OFFICIAL NOTICE 

the RAINBOW 
Published by FRLSOFT 
5303 Timber Ridge Dr. 
ProsPect, KY 40039 

Lawrence C> Falk — Editor 
the RAINBOW is intended for the 
Personal use and Pleasure of its sub- 
scribers and reproduction by any means 
is forbidden. Use of Programs herein 
is for the single end use of subscri- 
bers, and any other use is Prohibited. 

TRS-80, Color Computer and Extended 
Color Basic are trademarks of Tandy 
Cor-P . 

Rll programs herein 3.re distributed 
on an "as-is" basis, without warranty. 

Subscriptions to the RAINBOW are 
*12 Per year. 



HFHMKS 
THE 



EOR 
MEMORIES 



Yes. we do love the Color Computer , 
but we 9et somewhat unhappy when we 
Set right on the edge of usable mem- 
ory and realize there is some 1.5K 
being "eaten" up by high-res 9raPhic 
screens we're not Planning to use. 

There is a way. . . 

Just ( POKE 25 , 6 ■ N EIJ) when you Power 
up, and y©U wTTT~h~ave an additional 
1.5K of bonafide memory to use. We 
aren't exactly sure what this docs, 
but it seems to remove the hi9h-res 
graphic screen from memory. It stays , 
9one so long as you don't PCLEAR the 
Color ComPuter. 

You have to Plan in advance. The 
Poke doesn't work if you leave off 
the -NEW, and, if you have a ProSram ; 
residing in memory, the -NEW will 
wiPe it out. 

One way to avoid this problem if 
you did not Plan ahead would be to 
CSFlVE the Pro9ram, reset the memory 
and then CLOAD the Program back in. 

As Bob Hope said. . . 



PRINTER STATUS 



Althou9h there is no way to count 
line automatically on the COLOR com- 
puter, there are * few things you. can 
do with Printer information. 

A lot of that information is in the 
manual you received with your COLOR 
computer, although there is one typo- 
graphical error. That error is on 
Pa9e 209 of the Extended Color Basic 
documentation, which says you can set 
the line Printer width at decimal 113. 
The correct address to set the width 
is decimal 133. That's Pretty obvious 
to anyone who is looking at the other 
addresses. 

However, you can also Peek into the 
PIA at decimal 63314 to check the 
status of your line Printer. If the 
Peek returns a 4 or a 6/ then the 
Printer is on line. If it returns a 
3 or a 7, then it is off line. 

Try some of the addresses at the 
decimal 149 - 156 addresses. The one 
which shows up ri9ht away is 153, the 
comma field width. In short, you do 
not have to have 16-sP*ce comma fields 
and can use any number you want. 



OOMTE3T FOR 

RRIHBOW RERDERS 



In cooperation with JARB SOFTWARE, 
all readers of the RAINBOW are invited 
to Participate in a break - the - code 
contest. The winner/ or winners, will 
receive a free coPy of the .JARBCOOE 
Program reviewed on these Pa9es. All 
you have to do is decode the message 
below and send it to 1 Joe Bennett, 
Senior Programmer, JARB Software, 1169 
Florida St. , IriPerial Beach, CA 92032^ 
If you break the code, Bennett will 
send you a free copy of JARBCODE. 

But, you can be a winner anyway. 
Just mention the RAINBOW when Placing 
an order for JARBCOOE and you will get 
a *2 discount off the retail Price of 



JARBCODE. Orders can be sent to the 
address listed above. 

And now the code . . . 



20 14-. 


2636- ! 


206-B 


3359-' 


S66-M 


3839-S 


.013-W 


16-# 


62-& 


1-2 


.013-+ 


2656-2 


4-U 


2656-W 


97-X 


7777-2 


4444-55 


2014-1 


4444-. 


2014-X 


263-Y 


62-U 


4444-/ 





Have fun decoding! 



TRNOY DISC-O 



SOFTWARE REVIEW... 
JflRBCODE 



Recording to a "very highly Placed 
source" in a Texas location which will 
herein 9o unnamed, the long-awaited 
Color ComPu.ter disc will make its 
aPPearance in Au9u.st or September. 

We Pass along this information so 
you can — if you are of such mind — 
90 ahead and Place your order for one 
of the disc systems now. 

In connection with the disc. Radio 
Shack will announce a memory u.P9rade 
for the Color ComPu.ter. We're not in 
on what form it will take, but it 
be uPPin9 the memory to 32K. 

What we DO know is that four disc 
drives will be available. Drive "O" 
will have a ROM-based DOS, so it will 
use up a minimum of that all - to - 
Precious memory. It'll Plu9 into the 
ROM Cart Port on the ri9ht side of the 
Color Computer. Word is the DOS will 
be about the same as TRSD03, excePt 
no Debu9 and Clock functions. The 
reason for this, we understand, is 
because of basic differences between 
our 6803E and their Z-80. 

The Projected Price for Drive "0" 
is about $595. The other three are to 
be in the *3OO-*40O area. Tandy ex- 
pects the waiting period to be 30 to 
60 days, so, if you want one quick, 
we understand you can place an order 
now. 

By the way, 32K is about it as far 
as the Color Computer is concerned. 
The way we hear it, there IS another 
16K in there, but BASIC can't use it. 
You COW Poke into it — if you have 
the memory — and its a 9ood Place 
machine Ian9ua9e. But you Can't Just 
write a Program in BASIC and use that 
additional 16K. 

Frankly, the way we see it, Tandy 
is changing its tune a little on the 
Color Computer. It was originally 
Planned to be a "home" and " enter tain- 



If the JaPanese had had Joe Bennett 
and H. D. Stow on the side in World 
War II, there's a good chance that the 
United States never would have crack- 
ed their code ... the act which did 
lead to the end of the war. 

Bennett, chief Programmer for JRRB 
SOFTWARE, and Stow have created a very 
nice code- writing Package that anyone 
who likes — or is interested — in 
code would be proud to own. The Pro- 
gram is called JAR BCODE and is avail- 
able for *14.93." Address is 1169 Flo - 
rida St., Imperial Beach, CA, 92032 . 

JARBCODE allows you to send code at 
three different levels ' almost impos- 
sible to break, impossible to break, 
and "are you kidding"! The excellent 
documentation says that you would most 
likely need sPecial equipment to break 
the toP code level — and we believe 
it. 

The Program is also fun to use and 
if you are at all interested in codes 
JARBCODE is Just what you need. 

In addition to the program's main 
purpose, it has some very interesting 
graphics < although in low res'; to get 
things going. We think the 9raPhics 
3.rs a bonus to the program itself and 
are quite creative ... proving, of 
course that you don't HAVE to have 
Extended Color Basic to en Joy your 
Co I or ComP uter . 

We liked JARBCODE. 



ment" machine and that was sort of a 
company line. We don't hear that so 
much any more. All we do seem to hear 
is that because if < 1 ) the screen and 
"<2> the keyboard, the Color ComP uter 
isn't going to be very good as a word 
processing device. Well, we'll see. 



SOFTWARE REVIEW . , 



SIGMON< from DataSoft, Inc.. is a 
very well thought-out machine languag e 
mom i tor/ mini -assembler, disassembler 
*nd debugger all rolled into a single 
taPe. It was designed especially for 
the Color Computer and shows some well 
thought out ideas. 

In effect, there are « total of 18 
commands aou can use to access the 
memors of a our computer, allowing aou 
to do everythin9 from reading the con- 
tents of the memora locations to set- 
ting breakpoints and examining the 
contents of the registers in the 6369 
CPU. Moreover, after you. do all these 
things, you. can run the assembly lang- 
uage program you create . . . either on 
a real-time basis or steP - by -step. 
The last op t ion gives aou. the change 
to examine the contents of the CPU 
registers and see how your Program is 
affecting them. 

fl really nice feature of SIGMOH is 
its ability to turn your Printer on or 
off so that you. can trace a our Program 
and have a record of what happened, by ! 
keePing the Printer on all the way 
through the Process, you will be able 
to see what you did and what the re- 
sult of it was. 

You. can also set SIGMOH UP to op- 
erate in either decimal or hex 1 decimal 
modes, as far as inPu.t is concerned. 
For those trying to coPe with both 
assembly language and hex i decimals for 
the first time, that can be a bonus. 
However, SIGMON's output is always in 
hex, so it can be confusing if you 
don't remember what you. are using to 
input. 

The DataSoft PeoPle have Put to- 
gether a very nice Package, and a vera 
attractive booklet of documentation. 
The little drawings of "Sigmon" do 
help the novice assembly language pro- 
grammer understand the text a little 
better. 

I would say SIGMOH is a Perfect: 
Program to he IP someone get into the' 
complicated area of assembly Ian9u.a9e. 
One of the reasons for this is simPly 
because it is a helPful-tyPe Program i 
that sort of guides you. However, in ; 
view of that, I do with the documen- 



tation were a little more complete for 
the novice. a couPle of short Pro- 
grams worked through steP - by - step 
using the SIGMON commands would go ? 
long way toward helping the beginner 
understand a little more about all the 
mysterious stuff. 

With that one complaint, its real la 
a fine Program. Rnd, with a $29. 3' 
price tag, its in the perfect sPot for 
someone who wants to see what all this 
assembly language stuff is all about. 

Remember, though, SIGMOH Is a Mini- 
assembler and disassembler. In short, 
it trys to be — and succeeds — ir 
being a lot of things Packed in one 
tape. Because of that, its not like ? 
full-blown assembler, and doesn'* 
Pertend to be. But it is a good Place 
to start and the Price is certain I ;■ 
right for anyone who wants to see what 
assembly language is all about. 

SIGMOH is available from Dat aSof t, 
Inc., 19319 Business Center Drive, 
Horthrid9e, CR 91324. 



DRIVER BACKUP 



This month's edition of the Tandy 
Newsletter carries some excellent 
information on making backups of disc 
files and information, fis a rule, It 
is always a good idea to make a back- 
up of everything so you don't lose it 
due to the various Problems that crop 
uP with magnetic media. 

In order to make a backuP of a 
machine language taPe, you need to use 
CSflVEM, but you also need some other 
information 
available. 



that isn't always easila 



In the case of the Graphics Printer 
Driver we mentioned last month, aou 
need this information to make the 
backup. That information, as in all 
CSRVEM's is the Program's start, end 
and transfer addresses. To save you 
the trouble of looking for it, the 
ProPer command for the 16K Driver is 
CSflVEM'TTFXlS", 15744, 16376, 13744 . If 
*°u us* that, you can make~backuP 
copies of the Driver. 



SCREEN PRINTER 



Of course a printer will helP you 
a. great deal in debugging Program, be- 
cause i for one thing, you don't have 
to scroll your disPlay back and forth 
to trace the workin9s of a Program. 

But there can be other problems, 
too — such as remembering the value 
of variables and workin9 with displays 
where it would be 9ood to be able to 
Print out the alphanumeric contents of 
the screen's disPlay. 

The following Pro9ram will do Just 
that. find it will 9ive you the exact- 
re I at ionshiP of the disPlay to the 
disPlay to the screen, since it Prints 
cut the screen on a one-for-one basis 
to the Printer. 



USING THE EOITOR 



If »ou have Extended Color Basic, 
you will be ha.PPy to know that there 
have been a few thin9s left out of the 
Radio Shack documentation on using the 
editor, find, if you have a good know- 
ledge of Level II Basic, you might 
have felt cheated that all the editing 
commands in Level II were not included 
in Extended Color. 

Not to worry. They are all there, 
the manual Just "forget*" to mention 
three of them. The "missing" editing 
commands are "fl", "E" and "Q". For 
those of you not familiar with Level I 
we will Present a short rundown of the 
changes below 



It will not, 
graphics symbols 
will it give a 
The reason there 
ability is shown 
order to deal wi 
it is necessary 
references found 
is no bi9 problem 
most of you don 
the screen anyway, 
graphic nature of 
screen look pecu 
Problems, we thi 
screen Printer wi 
you can use. 

The Program^ 



10 FOR X«0 TO 16 

20 FOR Y«l TO 32 

30 Q=PEEK <<<X*32)+Y)+1023) 

40 IF Q=>S"6 RHD GK-127 THEN Q=Q-64 

30 PRINT#-2,CHR$<Q>; 

60 NEXT Y 

60 PRINT#-2,"" 

70 NEXT X 

80 END 



however, disPlay the 

on the screen, nor 

lower case Printout. 

is no lower case 

in line 40 below. In 

th the character set 

to convert the CHR* 

in the PEEKs. That 

i and we expect that 

't use lower case on 

because the reverse 

lower case makes the 

liar. Despite these 

nk you will find the 

11 be a good utility 



R f , Cancel and Restart) 1 
This command moves the cursor back 
to the beginning of the program line 
and cancels the editing changes you 
have made. 

E (Save Change and Exit)' 
This one makes the comPuter end the 
editing Process and save all the edits 
you have made. It is much the same 
as hitting ENTER. 

Q (Cancel and Exit)' 
When you decide you didn't really 
want to make those edits, "Q" is the 
command command d command to use. 

For "fl" and "E" you cannot be in a 
subcommand mode. If you are, you must 
exit the subcommand <by hitting the 
uP arrow and SHIFT at the same time) 
before they will work. 



We suggest using very high line 
numbers for this Program, so that it 
can Just sit up "on top" of whatever 
Program you happen to be working on. 
Then, when you want to do a Print of 
the screen, simply GOTO the line 
number where the screen Printer is 



set up . 

Finally, you might wish to Place an 
END instruction before the screen 
printer Program — to make sure that- 
whatever you are working on does not 
"spill" into the screen Printer. 



FIN EDUCRTIONflL PROGRAM FOR EVERYONE 

Here is a Pro9ram that can really be of use to Just about everyone in the 
•family . It is called AMORT and it deals with money at interest. 

On one level/ it can be used as a regular interest program that will help 
you fi9ure out such things as how much it will cost you a month to buy the new 
disc drives for your COLOR computer. That's not a bad thing to know. 

On the other level , however, there are some exP lainations built in to hclP 
teach those inf ami liar with the terms involved with money at interest Just 
what the terms mean. find there is a "cute" little default if you don't make 
the ProPer response to the amount of time the loan has to run question. 

AMORT is written for non-Extended Color Basic, which — as you know — does 
not have the ability to raise numbers to powers. There is a way around that 
limitation of course, and it can be found in lines 30 and SO. For those of you 
who do have Extended Color Basic, you mi9ht wish to chan9e thoce lines. The 
result will be a slightly more accurate result — especially on the more corn- 
Plicated calculations for lon9er Periods of time. 

However, non-Extended Color users will have to chan9e the PRINTUSING com- 
mands in lines 140-146, 310 and 340. Just take out the reference to USING and 
the Pound- and dollar-signs. That way, the Program will run without any 
modification on your Part. 

Finally, notice the use of the variable PO to send outPut to the Printer. 
If you want, you can eliminate the references to PO, but you would Probably be 
better off leaving them in — in anticipation of the time when you miSht get a 
Printer. Just answer "No" to the question in line 32 and no harm is done. 

Here is the listing* 

3 ' *********************** 

4 ' * RMORT PROGRAM * 
3 ' * <c> FRLSOFT, 1531 * 
6 ' *********************** 
10 C=0'CLS 

12 PRINT " THIS PROGRAM WILL GENERATE AN AMORITZATION SCHEDULE FOR MOST 
COMMON LOANS. " 

13 PRINT* PRINT " >PLEASE FOLLOW DIRECTIONS BELOW'," 

14 PRINT STRINGS 32,"-" ) 

13 INPUT "FIRST, WE NEED TO KNOW HOW MUCH YOU WANT TO BORROW. THIS IS CAL 
LED THE Principal. WHAT IS THE PRINCIPAL" ;P 
16 CLS 'PRINT 'PRINT 
1? PA-P 

20 INPUT "NOW, WE MUST KNOW THE NUMBER OF Periods THE LOAN WILL RUN. IF 
YOU WISH TO ENTER THE PERIODS BY MOUTH, TYPE IN THE WORD 'MONTH.' I 
F ITS YEARS, TYPE IN 'YEAR.' WHICH IS IT".;A* 

21 IF LEFT*<A*, 1 >="M" THEN 27© 

22 IF LEFT*<A*,1)="Y" THEN 260 

23 G0T0250 

30 CLS 'PRINT 'PRINT 

31 INPUT "LASTLY, WE NEED TO KNOW WHAT INTEREST RATE YOU WILL BE CHR 
RGED ON THE LORN. WHAT IS THE RATE";R 

32 INPUT " DO YOU WANT A PRINTOUT" :■ PO t ' IF LEFT*<P0*, 1 >*"Y" THEN P0=1 
35 CLS 

40 I=R/12'I«I/100 



30 T-l 'FOR X"l TO L 

60 T=T*<1 + I ><NEXT X:T=1/T 

70 T=l-T 

80 M=P*I/'T 

90 G0SUB200 

100 FOR Z=l TO L 

120 fi=»<INTCP*I*100+.3>V100 

130 B=M-A'P=P-B 

140 PRINTTRB<0>j.PRINTUSING"tttttt";Zj 'IF PO THEN PRINTtt-2, TAB< 0>.- PRINTtt-2, USING"tt 

tttt";Zj 

142 PRINTTRB<3>; 'PRINTUSING"tttttt,tttttt.tttt";P; >IF PO THEN PRINTtt-2, TRB< 3 >; • PRINTtt-2, 

USING"tttt#, tttttt. tttt".iP; 

144 PRINTTRBU4>.: ■ PRINTU3ING"tt, tttttt. tttt" ; Bj = IF PO THEN PRINTtt-2, TRB< 14 >; ■ PRINTtt-2, 

USING"tt, tttttt. tttt";Bj 

146 PRINTTAB<23:>; 'PRINTUSING"tt,tttttt.tttt";P'IF PO THEN PRINTtt-2,TAB< 23 >; < PRINT#-2,U 

SING"tt, tttttt. tttt"; A 

1 60 0=0+ 1 ■ C=C+ 1 ■ RT=RT+R ' NEXT Z 

165 GOTO30O 

170 END 

200 CLS'MR=t1+.005:Mfl=INT':riR*lO0V100aF PO THEN PRINTtt-2, TRB< 4 V'RMORITIZRTION SC 
HEDULE" 

201 IF PO THEN PRINTtt-2, "PRYMEHTS RRE *";MR — 

202 IF PO THENPRINT #-2 /TAB": 4) "BALANCE"; 
204 1^ PO THEN PRINT tt-2,TAB<14> "PMT'PRIN"; 
206 IF PO THEN PRINT tt-2,TAB<24> "PMT'INT" 

203 PR I NT "PRYMEHTS RRE *";MA 

2 1 PR I NTTRBC 4 > " BRLRNCE " TRB< 1 4 > " PMT/PR I N " T AB< 24 > " PMT-" I NT " 

220 RETURN 

250 CLS<3>'PRINT 532, "NO!"; 

252 PRINT 12162," HE IN!"; 

254 PRINT I224S, "NYET!"; 

255 PRINT ©233," NO NO NO NO NO NO NO HO NO NO" 

257 PRINTG332," "; 'PRINT " YOU DID NOT FOLLOW THE DIRECTIONS PROPERLY. E 
NTER ONLY THE WORD 'YEAR' OR THE WORD 'MONTH.' NOW, TRY AGAIN. 

II 

253 FOR WN=1 TO 3200 : NEXT WN - CLS ' PRINT « PRINT ■ G0T020 

260 PRINT 

261 INPUT "O.K., NOW WILL YOU PLERSE ENTER THE NUMBER OF YEARS BEFORE YO 
U PRY OF^ THE LORN'Vi'R 

265 L»YR*12«GOT0 30 

270 PRINT 

271 INPUT "ALL RIGHT, NOW WILL YOU PLEASE ENTER THE NUMBER OF MONTHS IT 
WILL TAKE TO PAY OFF THE LOAN";L 

275 GOTO 30 

300 IF PO THEN PRINTtt-2, PRINT*-2,TRB< 10VLORN SUMMARY" 'PRINTtt-2, TABC 10 )"==== 

310 IF PO THEN PRINTtt-2, TRB< 3 > "PRINCIPAL ■ "; ■ PRINTtt-2, USING"**###, tttttt. tttt";PA 

320 IF PO THEN PRINTtt-2," PERIODS ' "L.J ■ PRINTtt-2, " RATE' " ; ■ PRINTtt-2 ,USIHG"tttt 

.tttt";R; ■ PRINTtt-2, "V." 

330 IF PO THEN PRINT tt-2, STRINGS 31 , "-" > 

340 IF PO THEN PRINT tt-2, "TOTAL INTEREST' ">■ PRINTtt-2, USING"**tttttt, tttttt. tttt": AT 

350 IF PO THEN PRINTtt-2, PRINTtt-2," " 'PRINTtt-2, " " 
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Name ' — — — - -- — — — 

Address ■ . 
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